home *** CD-ROM | disk | FTP | other *** search
/ 3D GFX / 3D GFX.iso / amiutils / u_z / videotxt / install_videotxt < prev    next >
Text File  |  1995-12-30  |  6KB  |  204 lines
  1. ; Install-Script fⁿr VideoTXT
  2. ;
  3. ; ⌐ 1994 Michael Bettler, Andreas Knust, Joachim E. Deu▀en
  4. ;
  5. ; $VER:VideoTXTInstall 0.97 (07-Nov-94)
  6.  
  7.  
  8. (message "Willkommen zur Installation von VideoTXT V2.4\n\n"
  9.          "Copyright ⌐ 1993,94 by HSL Lenzen\n\nHard- & Software Lenzen\nKlinkhammer 4\n41751 Viersen\nTel.:02153/5831 Fax:02153/13383\n\n"
  10.          "Programmiert von Stefan Wegener\nHardware von Klaus K÷ster\n"
  11.          )
  12.  
  13. (set Ok 0)
  14. (set savedest "Work:")
  15. (set newdirname "VideoTXT_2.4")
  16.  
  17. (complete 0)
  18.  
  19. (set ToDo (askoptions (prompt "Bitte wΣhlen Sie die gewⁿnschte Operation:")
  20.                       (help @askoptions-help)
  21.                       (choices "VideoTXT und Doks installieren"
  22.                                "VTXT und VTXT_Prefs installieren"
  23.                                "Fonts installieren bzw. updaten"
  24.                                "Libraries installieren bzw. updaten"
  25.                                "MagicWB Symbole installieren"
  26.                                "Beispiel-Seiten entpacken")
  27.                       (default 15)
  28.           )
  29. )
  30.  
  31. (set TempDo ToDo)
  32.  
  33.  
  34. (if (<> (BITAND ToDo $3) 0)
  35.    (
  36.       (set askdest (askdir (prompt "Bitte wΣhlen Sie, wo das VideoTXT-Verzeichnis installiert werden soll.")
  37.                            (help (cat "In diesem Einstellungsfenster k÷nnen Sie festlegen, wohin VideoTXT \
  38. installiert werden soll.\nGeben Sie das gewⁿnschte Laufwerk und evtl. die Schublade an.\n\n" @askdir-help))
  39.                            (default savedest )
  40.                            (newpath))
  41.       )
  42.  
  43.       (set newdest (tackon askdest newdirname))
  44.       (if (= (exists newdest) 0)
  45.          (makedir newdest (prompt ("Erstelle Verzeichnis %s!" newdest))
  46.                           (help @makedir-help)
  47.                           (infos)
  48.           )
  49.       )
  50.       (set @default-dest newdest)
  51.    )
  52. )
  53.  
  54. (complete 10)
  55. (set ToDo TempDo)
  56.  
  57. (working "Kopiere VideoTXT und Doks...")
  58.  
  59. (if (<> (BITAND TempDo $1) 0)
  60.    (copyfiles (prompt "Kopiere VideoTXT und Doks...")
  61.               (help (cat "Das Hauptprogramm von VideoTXT und die AmigaGuide-Dokumentation werden auf Ihre Festplatte kopiert\n\n" @copyfiles-help))
  62.               (source "VideoTXT:")
  63.               (dest @default-dest)
  64.               (pattern "(VideoTXT#?)")
  65.               (infos))
  66. )
  67.  
  68. (complete 20)
  69. (set ToDo TempDo)
  70.  
  71. (if (<> (BITAND ToDo $2) 0)
  72.    (copyfiles (prompt "Kopiere VTXT...")
  73.               (help (cat "Die Programme von VTXT werden auf Ihre Festplatte kopiert\n\n" @copyfiles-help))
  74.               (source "VideoTXT:")
  75.               (dest @default-dest)
  76.               (pattern "(VTXT#?|VTXT_Prefs#?)")
  77.               (infos))
  78.  
  79. )
  80.  
  81. (complete 30)
  82.  
  83. (if (<> (BITAND ToDo $10) 0)
  84.    (copyfiles (prompt "Kopiere MagicWB Symbole...")
  85.               (help (cat "Die Symbole fⁿr MagicWB Benutzer werden installiert\n\n" @copyfiles-help))
  86.               (source "VideoTXT:MWB/")
  87.               (dest @default-dest)
  88.               (pattern "(V#?.info)")
  89.               (infos))
  90. )
  91.  
  92. (complete 35)
  93.  
  94. (if (<> (BITAND ToDo $10) 0)
  95.    (delete (tackon @default-dest "VideoTXT_2.4.info"))
  96. )
  97.  
  98. (if (<> (BITAND ToDo $10) 0)
  99.    (copyfiles (prompt "Kopiere MagicWB Symbole...")
  100.               (help (cat "Die Symbole fⁿr MagicWB Benutzer werden installiert\n\n" @copyfiles-help))
  101.               (source "VideoTXT:MWB/")
  102.               (dest askdest)
  103.               (pattern "(VideoTXT_2.4.info)")
  104.               (infos))
  105. )
  106.  
  107. (complete 40)
  108.  
  109. (tooltype  (prompt "Passe Positionen an...")
  110.            (help @tooltype-help)
  111.            (dest (tackon @default-dest "VideoTXT"))
  112.            (noposition))
  113.  
  114. (complete 45)
  115.  
  116. (tooltype  (prompt "Passe Positionen an...")
  117.            (help @tooltype-help)
  118.            (dest (tackon @default-dest "VTXT"))
  119.            (noposition))
  120.  
  121. (complete 50)
  122.  
  123. (tooltype  (prompt "Passe Positionen an...")
  124.            (help @tooltype-help)
  125.            (dest (tackon @default-dest "VTXT_Prefs"))
  126.            (noposition))
  127.  
  128. (complete 55)
  129.  
  130. (tooltype  (prompt "Passe Positionen an...")
  131.            (help @tooltype-help)
  132.            (dest (tackon @default-dest "VideoTXT.guide"))
  133.            (noposition))
  134.  
  135. (complete 60)
  136. (set ToDo TempDo)
  137.  
  138. (if (<> (BITAND ToDo $4) 0)
  139.    (copyfiles (prompt "Kopiere Fonts...")
  140.               (help (cat "Es werden die ben÷tigten Fonts in das FONT Verzeichnis kopiert\n\n" @copyfiles-help))
  141.               (source "VideoTXT:fonts")
  142.               (dest "FONTS:")
  143.               (fonts)
  144.               (all))
  145. )
  146.  
  147. (complete 70)
  148. (set ToDo TempDo)
  149.  
  150. (if (<> (BITAND ToDo $8) 0)
  151.    (
  152.       (copylib (prompt "Installiere ReqTools.library...")
  153.                (help @copylib-help)
  154.                (if (< (/ (getversion) 65536) 37)
  155.                   (
  156.                   (source "VideoTXT:libs_1.3/reqtools.library")
  157.                   )
  158.                   (
  159.                   (source "VideoTXT:libs_2.0/reqtools.library")
  160.                   )
  161.                )
  162.                (dest "LIBS:")
  163.                (confirm)
  164.       )
  165.    )
  166. )
  167.  
  168. (complete 80)
  169.  
  170. (set cachedir (tackon @default-dest "CACHE"))
  171. (set cachedir (askdir (prompt "Bitte wΣhlen Sie ein Verzeichnis fⁿr die Videotext-Seiten!")
  172.                       (help (cat "Geben Sie einen Namen fⁿr das CACHE-Verzeinis an." @askdir-help))
  173.                       (default cachedir)
  174.                       (newpath))
  175. )
  176. (if (= (exists cachedir) 0)
  177.     (makedir cachedir (prompt ("Erstelle Verzeichnis %s!" cachedir))
  178.                       (help @makedir-help)
  179.                       (infos))
  180. )
  181.  
  182. (complete 85)
  183.  
  184. (set assignline ("ASSIGN VideoTXT: %s" @default-dest))
  185. (startup @app-name assignline
  186.                    (help @startup-help)
  187.                    (prompt ("Soll das Assign\n\n%\n\nin S:user-startup angelegt werden?" assignline))
  188. )
  189.  
  190. (complete 90)
  191.  
  192. (if (<> (BITAND ToDo $20) 0)
  193. )
  194.  
  195. (complete 100)
  196.  
  197. (IF (> (run "Sys:Utilities/MultiView VideoTXT:Lies.Mich") 0)
  198.     (IF (> (run "Sys:Utilities/AmigaGuide VideoTXT:Lies.Mich") 0)
  199.         (run "More VideoTXT:Lies.Mich")
  200.     )
  201. )
  202.  
  203. (exit "Bitte vergessen Sie nicht, in jedem Fall eine PROZESSORANPASSUNG an Ihrem Dekoder durchzufⁿhren.\n (Handbuch 2.3, Kapitel 2, Seite 24)\nAnderenfalls kann es vorkommen, da▀ der Dekoder nicht oder nur unzureichend arbeitet!\n")
  204.